home *** CD-ROM | disk | FTP | other *** search
/ Data Base of the Video Yearbook 1995 / Data Base of the Video Yearbook 1995 - Disc 1.iso / cosmos / aiuew.dir / 00025.ls < prev    next >
Encoding:
Text File  |  1995-12-21  |  804 b   |  27 lines
  1. on mouseDown
  2.   global taidata, taidataj, sdata, tj, moji, msno
  3.   set taidata to EMPTY
  4.   set taidataj to EMPTY
  5.   set sdata to EMPTY
  6.   set msno to clickOn()
  7.   highwaystar(msno)
  8.   set moji to "ﾃﾂｩ,ﾃﾂｴ,ﾃﾂ,ﾃﾃ,ﾃﾂｱ"
  9.   delete line 1 of field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ"
  10.   put field "ﾃ･ﾃｼﾃｧﾂｦﾃ･ﾃ｣ﾃ｢ﾂ"
  11.   if tj = 1 then
  12.     put EMPTY into field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  13.     tgyou("ﾃﾂｩ,ﾃﾂｴ,ﾃﾂ,ﾃﾃ,ﾃﾂｱ")
  14.     if the number of items in taidata = 1 then
  15.       ﾃ窶｡ﾃﾂｵYﾃｱ窶愿邃｢ﾃﾂ｢ﾃﾂｻﾃﾂｩﾃﾂ｡ﾃﾃｽﾃﾃ()
  16.       put "Nothing" into field "ﾃ運ﾃ韻ﾃ曳ﾃ嘉｣ﾃｯﾂ"
  17.     end if
  18.   else
  19.     put EMPTY into field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
  20.     jgyou("ﾃﾂｩ,ﾃﾂｴ,ﾃﾂ,ﾃﾃ,ﾃﾂｱ")
  21.     if the number of items in sdata = 1 then
  22.       ﾃ窶｡ﾃﾂｵYﾃｱ窶愿邃｢ﾃﾂ｢ﾃﾂｻﾃﾂｩﾃﾂ｡ﾃﾃｽﾃﾃ()
  23.       put "Nothing" into field "ﾃｨﾃｳﾃｳDﾃｯﾂ"
  24.     end if
  25.   end if
  26. end
  27.